home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctjoc85.arc / PCNTPGS < prev    next >
Text File  |  1985-07-24  |  1KB  |  42 lines
  1. % File:  pcntpgs 
  2. % Auth:  Richard Foard 
  3. % 
  4. % Zim procedure to discover the number of pages booked for an 
  5. % issue; gives total numbers of editorial and listing pages. 
  6. % 
  7.  
  8. Procedure pcntpgs(in vol, in num) 
  9.  
  10.   % validate input, fetch indicated issue 
  11.   let vvolume = $tonumber(vol, 0) 
  12.   let vnumber = $tonumber(num, 0) 
  13.   find Issues where Volume = vvolume and Number = vnumber 
  14.  
  15.   % if valid issue, get articles, list titles, and count pages 
  16.   If $SetCount > 0 
  17.     let vtotedit = 0    % total editorial pages 
  18.     let vtotlist = 0    % total listing pages 
  19.  
  20.     find all Articles where Volume = vvolume \
  21.                         and Number = vnumber 
  22.     while $SetCount > 0 
  23.       let vtitle = Title 
  24.       output vtitle 
  25.  
  26.       let vtotedit = vtotedit + EditPages 
  27.       let vtotlist = vtotlist + ListPages 
  28.  
  29.       next 
  30.       let $SetCount = $SetCount - 1 
  31.     endwhile 
  32.  
  33.     output 
  34.     output 'Total pages:' 
  35.     output   vtotedit ' Editorial Pages' 
  36.     output   vtotlist ' Listing Pages' 
  37.     output   (vtotedit + vtotlist) ' Total Pages' 
  38.   else 
  39.     output 'Issue' vvolume '/' vnumber 'does not exist' 
  40.   endif 
  41. Endprocedure
  42.